home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / util / termintr / part01 / bootcode.a next >
Text File  |  1990-10-11  |  1KB  |  35 lines
  1. ;Code for boot block to put red and yellow stripes on the screen
  2. ;by Russell Wallace 6 Feb 1989
  3. ;This code was assembled with Aztec Assembler 3.6a, linked then disassembled
  4. ;with DisAsm. The hex dump of the code was typed into CMon, a boot checksum
  5. ;was calculated and the 1K boot block was saved to a file. The first 80
  6. ;bytes of the file were chopped off with Cut into another file and this was
  7. ;then converted with my File2Manx program into an object file for linking
  8. ;with the Aztec linker 3.4a. An involved process but you can assemble this
  9. ;file then verify that the code produced is the same as the code placed in
  10. ;the boot block by the program.
  11.  
  12. _LVOFindResident        equ        -96
  13.  
  14.         moveq        #80,d0
  15. loop
  16.         move.w        #200,d1
  17. loop1
  18.         move.w        #$0f00,$dff180    ;Make screen red
  19.         dbf        d1,loop1
  20.         move.w        #200,d1
  21. loop2
  22.         move.w        #$0ff0,$dff180    ;Make screen yellow
  23.         dbf        d1,loop2
  24.         dbf        d0,loop
  25.  
  26.         lea        dos_name,a1    ;Do normal boot sequence
  27.         jsr        _LVOFindResident(a6)
  28.         move.l        d0,a0
  29.         move.l        22(a0),a0
  30.         moveq        #0,d0
  31.         rts
  32.  
  33. dos_name    dc.b        'dos.library',0
  34.  
  35.